(change-log-font-lock-keywords): Tweak font-lock-keywords.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 27ace80f219be57793ee78e48c28887b484a4e3e..3b963bd3bbeec8ae01be994e054efc585120739c 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -68,9 +68,11 @@ This defaults to the value of `user-mail-address'."
 (defvar change-log-font-lock-keywords
   '(;;
     ;; Date lines, new and old styles.
-    ("^\\sw........."
+    ("^\\sw.........[0-9: ]*"
      (0 font-lock-string-face)
-     ("[A-Z][^\n<]+" nil nil (0 font-lock-reference-face)))
+     ("\\([^<]+\\)<\\([A-Za-z0-9_.-]+@[A-Za-z0-9_.-]+\\)>" nil nil
+      (1 font-lock-reference-face)
+      (2 font-lock-variable-name-face)))
     ;;
     ;; File names.
     ("^\t\\* \\([^ ,:([\n]+\\)"